Nuprl Lemma : ecl-trans-state-append 11,40
ds:fpf(Id; x.Type), da:fpf(Knd; k.Type), v:ecl-trans-tuple{i:l}(ds; da), L1,L2:(top List).
sqequal(ecl-trans-state(v; append(L1; L2)); ecl-trans-state-from(v; ecl-trans-state(v; L1); L2)
sqequal() 
latex

Definitionst  T, top, x:A. B(x), ecl-trans-state(v; L), Id, x. t(x), fpf(A; a.B(a)), Knd, ecl-trans-tuple{i:l}(ds; da)
Lemmastop wf, ecl-trans-tuple wf, Knd wf, fpf wf, Id wf, ecl-trans-state-from-append

origin